COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE VSW
C00003 ENDMK
C⊗;
	TITLE VSW
	A←1 ↔ B←2

STAR:	OUTSTR [ASCIZ /	SET OR RESET? /]
	INCHRW
	CAIE "S"
	CAIN "s"
	JRST SETIT
	CAIE "R"
	CAIN "r"
	JRST RSET
	INCHRS
	OUTSTR [ASCIZ /
/]
	JRST STAR

RSET:	SKIPA B,[404000,,[0]]
SETIT:	MOVE B,[402000,,[7]]
	HRRZI A,177
	
ADIT:	HRLZI (A)
	OR  B
	VDSMAP
	JFCL
	SOJG A,ADIT
	EXIT

	END STAR